home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / APREPACK.PRG < prev    next >
Text File  |  1986-10-06  |  713b  |  32 lines
  1. *
  2. * APREPACK
  3. * CLEAN UP ACCTS PAYABLE FILE, REMOVING DELETED RECORDS AND REGENERATING INDEX
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,22 SAY ">> Accounting System File Clean Up <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM PERMANENTLY REMOVES RECORDS FLAGGED FOR DELETION FROM THE"
  18. @ 16,1 SAY ;
  19. "PAYABLES FILE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS REPACK =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN PAYABLES FILE WITH INDEX, THEN REPACK
  27. USE PAYFILE INDEX PFACTNO
  28. PACK
  29. REINDEX
  30. CLEAR
  31. RETURN
  32.